home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 009 / qb3bug.arc / PROBLEM3.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-07-11  |  1.3 KB  |  27 lines
  1. '+-----------------------------------------------------------------------------+
  2. '|   This will run fine IN the environment, or if compiled to a BRUN file,     |
  3. '|   it will PROBABLY not run if compiled to a BCOM file from INSIDE the       |
  4. '|   QB environment, only if compiled from DOS via QB problem2 /o;             |
  5. '|                                                                             |
  6. '|                                                                             |
  7. '|  PROBLEM3 - Similar to the makewind routine but a little less involved.     |
  8. '|                                                                             |
  9. '|  PARAMETERS:                                                                |
  10. '|  box=where box is to be (1=top half, 2=bottom, 3=left, 4=right, 5=all,      |
  11. '|                          6=center)                                          |
  12. '|  frame= frame style                                                         |
  13. '|  clr = color of box frame                                                   |
  14. '+-----------------------------------------------------------------------------+
  15.  
  16. CLEAR
  17. DEFINT a-z
  18.  
  19. FOR x=1 TO 6
  20.    CALL boxes(x, 2, x+8)
  21.    LOCATE 24,30
  22.    PRINT "Press any key to continue" ;
  23.    ky$=INKEY$ : WHILE ky$="" : ky$=INKEY$ : WEND
  24.    CLS : BEEP
  25. NEXT x
  26.  
  27.